(calendar-goto-french-date): Use assoc-string instead of

assoc-ignore-case.

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 7c855e4127a638d330988700f07b6988671516eb..d988b008f53c51fba1fae2a184c108abaac045b0 100644 (file)
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -228,12 +228,12 @@ Echo French Revolutionary date unless NOECHO is t."
                                      (concat "Jour " x))
                                   special-days))))))))
            (completion-ignore-case t)
-           (month (cdr (assoc-ignore-case
+           (month (cdr (assoc-string
                          (completing-read
                           "Mois ou Sansculottide: "
                           month-list
                           nil t)
-                        (calendar-make-alist month-list 1 'car))))
+                        (calendar-make-alist month-list 1 'car) t)))
            (day (if (> month 12)
                     (- month 12)
                   (calendar-read